package SVNTrac::Ticket;

use warnings;
use strict;

=head1 NAME

SVNTrac::Ticket - SVNTrac ticket class

=head1 SYNOPSIS

SVNTrac ticket table, ORMed:

    use SVNTrac::Ticket;

    my $ticket = SVNTrac::Ticket->new ( tn => $number );
    
    $ticket->load;
    
    print "Ticket $number's status is " . $ticket->status . ".\n";
    
    $ticket->status ( 'closed' );
    
    $ticket->save;

Ticket table schema is:

  CREATE TABLE ticket (
    tn          integer primary key,
    type        text,
    status      text,
    origtime    int,
    changetime  int,
    derivedfrom int,
    version     text,
    assignedto  text,
    severity    int,
    priority    text,
    subsystem   text,
    owner       text,
    title       text,
    contact     text,
    extra1      numeric,
    extra2      numeric,
    extra3      numeric,
    extra4      numeric,
    extra5      numeric,
    description text,
    remarks     text
  );

=cut

use base qw( SVNTrac::DB::Object );

__PACKAGE__->meta->table ( 'ticket' );
__PACKAGE__->meta->auto_initialize;

=head1 AUTHOR

Xavier Caron, C<< <xav at cpan.org> >>

=head1 BUGS

Please report any bugs or feature requests to C<bug-svntrac-ticket at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=SVNTrac>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc SVNTrac

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=SVNTrac>

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/SVNTrac>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/SVNTrac>

=item * Search CPAN

L<http://search.cpan.org/dist/SVNTrac>

=back

=head1 ACKNOWLEDGEMENTS

John Siracusa, Rose::DB::Object module owner.

=head1 COPYRIGHT & LICENSE

Copyright 2008 Xavier Caron, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1; # End of SVNTrac::Ticket
